home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / NLphoneCheck 2.0 / NLphoneCheck2.0 / FMPR v2.x / Variant ;'s / NLphoneCheck1.1N;'s (.txt) < prev    next >
FileMaker Pro Database  |  1995-12-30  |  33KB  |  194 lines
  1. HBAM2001MAY84
  2. NLphoneCheck1.1N;'s:*
  3. Pro 1.0F!
  4. Pro 2.0 - 2.1I
  5. Main Dictionary
  6. Id@ntL@belB
  7. TelNew#1B
  8. TelOld)*10^6 ;2)="30"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="33"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="35"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="38"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="43"or Left(TF
  9. extToNum("0,."&TelOld)*10^6 ;2)="45"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="46"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="53"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="58"or Left(TextToNum("0,."&TelOld)*10^6 ;1
  10. 0,.&C
  11. Comment N CopyB
  12. If(Position(TelOld;"O";1) 
  13.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);"E: O/o  
  14.  0! F!"; If(Length(Int(TextToNum("0,."&TelOld&1)*                                 
  15. Enkel
  16. EnkelB
  17. Enkel
  18. EnkelB
  19. 42572
  20. 42575
  21. 42577
  22. Id@ntL@bel
  23. 080 666666F
  24. 06702431Q
  25. (024) 366 66 66_
  26. OK: Oud nr omgezet
  27. If(Left(TextToNum("0,."&TelOld)*10^6 ;2)="10"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="13"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="20"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="24"or Left(TextToNum("0,."&TelOldB
  28. )*10^6 ;2)="26"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="36"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="37"or (Left(TextToNum("0,."&TelOld)*10^6 ;2)="40" and  Left(TextToNum("0,."&TelOld)*10^6 ;3) 
  29.  "406")or Left
  30. 30-12-1995
  31.     COMMENT N
  32. ID@NTL@BEL
  33. TELNEW#1
  34. TELOLD
  35. TelOldB
  36. JJLcheckData
  37. JJLcheckData
  38. JJLcheckData
  39. !!!!!  Om geimporteerde of al bestaande gegevens
  40. om te zetten moet de cursor in TelOld gezet worden en
  41. Zoek opnieuw op uit het Wijzig Menu
  42. gedaan worden.  !!!!!!!
  43. E    Comment N
  44. l    {I0_*n
  45. L    [i0
  46. l    {I0_*n
  47. A    JJL/ShareB
  48. Users
  49. JJL/ShareB
  50. Users
  51. A    JJL/ShareB
  52. Users
  53. l    {I0_*n
  54. L    [i0
  55. l    {I0_*n
  56. A    JJL/ShareB
  57. Users
  58.    If(Left(@#2 ;1) 
  59.  1 ;"Oud nr omgezet";"")&                                                                If(Left(@#2 ;1) = 2 ;"Nieuw nr";"")&                                           If(Left(@#2 ;1) = 3 ;"R"Oud nr is nieuw nr";"")) )))))))))
  60. E: Letter O/o  
  61.  cijfer 0! F!'
  62. Te weinig cijfers'
  63.                                   If(Left(TextToNum("1$"&TelOld)*1000 ;4) > 1090 and Left(TextToNum("1$"&TelOld)*1000 ;4)
  64. 1099 ;"Oud intern. omgz.";                                                   If((PositioD
  65. n(TelOld;"+";1) 
  66.  0 and TextToNum("0$"&TelOld) =            TextToNum("0$"&                                                                      Right(TelOld; Length(TelOld)- Position(TelOld;"+";1))))          
  67.  cijfer(s) te('
  68.  kort'
  69.  lang
  70. ion(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1))&             " cijfer(s) te" & If(Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;          N
  71.         Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1) <0 ;           " kort";  " lang");                                                                               If(Middle(Int(TextToNum("0$"
  72. TelOld
  73. TelNew#1
  74. E    Comment N
  75. f te kort nieuw nr'
  76. OK: Nieuw nr
  77. Now length check
  78. Te weinig cijfers'
  79. Id@ntL@belB
  80. TelNew#1B
  81. If(Position(TelOld;"O";1) 
  82.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);"E: O/o  
  83.  0! F!"; If(Length(Int(TextToNum("0,."&TelOld&1)*                                 B
  84.   10^(Length(TextToNum("0,."&Left(TelOld;                  Position(TelOld&"; "; "; "; 1))&1))-2))) < 3 ;     Middle(TelOld;Position(TelOld & "; ";"; ";1)+2 ;99);                             If(Left(TextToNum("
  85.  ;5); If(Left(TextToNum("0,."&TelOld)*10^7 ;5)="42576"; Left(TextToNum("0,."&TelOld)*10^7 ;6); Left(TextToNum("0,."&TelOld)*10^6 ;4) ))))
  86. 0" and  Left(TextToNum("0,."&TelOld)*10^6 ;3) 
  87.  "406")or Left
  88.                                                      If(1 = 1 ;"";" Nu test op lookup fout") &                                              If(@#2 = 0 ;"Net+Abo bestaat niet of te kort nieuw nr";               H
  89.                                If((Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                     Position(TelOld&"; "; "; "; 1))&1))-3))) = 8 
  90.  Nu test op lookup fout
  91. E: (0&
  92. ?? / ? d >>>  F!('
  93. )="6"  or Left(TextToNum("0,."&TelOld)*10^6 ;1)="7"; Left(TextToNum("0,."&TelOld)*10^6 ; If(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;       H
  94.                Position(TelOld&"; "; "; "; 1))&1))-3))) < 8 or                                Left(TextToNum("0,."&TelOld)*10^6 ;1)="6";2 ;3));                     If(Left(TextToNum("0,."&TelOld)*10^6 ;4)="2907
  95. &TelOld&1)* 10^(Length(TextToNum("0$"&TelOld&1))-2));                      (Middle(@#2 ;3 ;1)-Middle(@#2 ;2 ;1)+2);1) = 0 and               Left(@#2;1) < 5 ;"Abo nr begint met een 0";  "OK: " &                 P
  96.                If(Left(@#2;1) > 4 ;If(Left (@#2 ;1) = 6 ;"06 nr";"")&               If(Left(@#2 ;1) = 8 ;"Nieuw Euro nr gratis";"")&               If(Left(@#2 ;1) = 9 ;"Nieuw Euro nr betaald";"");              
  97.  and  Left(@#2;1) = 1 );                                              "OK: Nieuw nr";                                                                                          If(1=1 ;"";"Now length check")  & IJ
  98. f((Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                      Position(TelOld&"; "; "; "; 1))&1))-3))) 
  99.  Middle(@#2 ;3 ;1) and Left(@#2 ;1
  100. A    Comment NB
  101. If(Position(TelOld;"O";1) 
  102.  1 and                               Position(TelOld;"O";1) < Position(TelOld & ";";";";1);                                   "E: Letter O/o  
  103.  cijfer 0! F!"; If(Length(Int(TextToNum(B
  104. "0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-2)))  < 3 ; "Te weinig cijfers";                                  
  105. (TextToNum("0,."&TelOld)*10^6 ;2)="50"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="55"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="70"or Left(TextToNum("0,."&TelOld)*10^6 ;2) ="80"or Left(TextToNum("0,."&TelOld)*10^6D
  106.  ;2)="85"or Left(TextToNum("0,."&TelOld)*10^6 ;2) ="90"; Left(TextToNum("0,."&TelOld)*10^6 ;3); If(Left(TextToNum("0,."&TelOld)*10^6 ;2)="15"or Left(TextToNum("0,."&TelOld)*10^6 ;2)="23"or Left(TextToNum("0,."&
  107. E: O/o  
  108.  0! F!'
  109. "or Left(TextToNum("0,."&TelOld)*10^6 ;4)="2990"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="3450"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="3480"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4132"or Left(TextToNum("0,J
  110. ."&TelOld)*10^6 ;4)="4160"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4167"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4180"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4927"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4
  111. 2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) > 4 ;      " ";"")& Middle(Middle(TextToNum(Middle(TelOld;Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) T
  112. = 6 ;2 ;4);9);5 ;2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) > 6 ;      " ";"")& 
  113. ) < 5)  and (Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                    Position(TelOld&"; "; "; "; 1))&1))-3))) 
  114.  8 or Left(@#2;1) 
  115.  1) ;  L
  116.                                                                             Abs(Length(Int(TextToNum("0$"&TelOld&1)*                                   10^(Length(TextToNum("0$"&Left(TelOld;                Posit
  117. Middle(Middle(TextToNum(Middle(TelOld;        Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) = 6 ;2 ;4);9);7 ;2);                                V
  118.                           Middle(@#2;7 ;Right(@#2 ;1))&                                          If(Middle(@#2 ;2 ;1) > 4 ;Middle(TextToNum("0,."&TelOld&1);                                                    Le
  119. ngth(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - Middle(@#2 ;2 ;1); Middle(@#2 ;2 ;1)-4)&" ";"")&                                              If(Middle(@#2 ;2 ;1)  > 3 ;Middle(TextToNum("0X
  120. ,."&TelOld&1);                                                    Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - 4 ;2); Middle(TextToNum("0,."&TelOld&1);                                
  121. 42578
  122. 42579
  123. 42576
  124.                     Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; ";"; ";1)) &1)) - 3 ;1))&" "& Middle(TextToNum("0,."&TelOld&1);                                                    Length(TextToNum("0,.Zr"&Left(TelOld;Position(TelOld&"; ";"; ";1))& 1)) - 2 ;2))& Middle(TelOld;Position(TelOld&"; ";"; ";1);32) ))))))))
  125.             If((Position(TelOld;"+";1) 
  126.  0 and TextToNum("0,."&TelOld) =            
  127. ); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9)) >          2 ;" ";"")& Middle(Middle(TextToNum(Middle(TelOld;Position(TelOld;Left(@#2;1);1); Position(TelOld&"; "R
  128. ;"; ";1) - Position(TelOld;Left(@#2;1);1))); If(Left(@#2;1) = 6 ;2 ;4);9);3 ;2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#
  129. 1,."&TelOld)*1000 ;4) > 1090 and Left(TextToNum("1,."&TelOld)*1000 ;4) 
  130.  1099 ;       "00"&Right(TelOld; Length(TelOld)-2);               If((Position(TelOld;"+";1) 
  131.  0 and TextToNum("0,."&TelOld) =            D
  132. TextToNum("0,."&Right(TelOld; Length(TelOld)- Position(TelOld;"+";1)))) or (TextToNum("0,."&TelOld) < 1/100) or (Left(@#1;1)=1 and (Length(1&TextToNum(TelOld)) - Length(TextToNum("0,."&Middle(TelOld;Position(Te
  133. User Dictionary
  134. Now length check
  135. '    d <<<< F!'    d >>>> F!
  136. E: (0'
  137. ) 0  ??J
  138.  F!('
  139.     Helvetica
  140. Monaco
  141. Chicago
  142. New Century Schlbk
  143. Geneva
  144. Courier
  145. Times
  146. Zapf Chancery
  147. No digits found
  148. Omgezet
  149. Geneva
  150. Courier
  151. Times
  152. Zapf Chancery
  153. No digits found
  154. Enkel
  155. EnkelB
  156. Enkel
  157. EnkelB
  158. lOld & "; ";"; ";1);32)&1)))=2); TelOld;                                                                   If(1 = 1 ;"";" Nu test op lookup fout") &                                              If(@#2 = 0 ;"E: F
  159. (0"&Left(@#1; If(Length(@#1) < 4 ;2 ;3))&") "& Middle(@#1;If(Length(@#1) < 4 ;3 ;4);10)&"?? / ? d >>>  F!";                                              If((Length(Int(TextToNum("0,."&TelOld&1)*                
  160.                    10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) = 8  and  Left(@#2;1) = 1);                                                           "(0"& Middle (TextToNum("H
  161. 0,."&TelOld)*10^9 ;1 ;If(Length(@#1)=3 ;2 ;3)) & ") " & Middle (TextToNum("0,."&TelOld)*10^9 ;If(Length(@#1)=3 ;3 ;4);If(Length(@#1)=3 ;3 ;2)) & " " & Middle (TextToNum("0,."&TelOld)*10^9 ;6 ;2) & " " & Middle(
  162. 950"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="4951"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="8360"or Left(TextToNum("0,."&TelOld)*10^6 ;4)="8851"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42572"or Left(TextToNumL
  163. ("0,."&TelOld)*10^7 ;5)="42575"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42577"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42578"or Left(TextToNum("0,."&TelOld)*10^7 ;5)="42579"; Left(TextToNum("0,."&TelOld)*10^7
  164. TextToNum("0,."&TelOld)*10^10 ;8 ;2) &  Middle(TelOld;Position(TelOld&"; ";"; ";1);32);                                                                                          If(1=1 ;"";"Now length check")  &J
  165.  If((Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) 
  166.  Middle(@#2 ;3 ;1) and Left (@#2 ;1) < 5) ;         
  167. 0  ?? F!";                                                                                             "(0"&TextToNum(Middle(@#2 ;4 ;3))&") "&                   If(Left(@#2;1) > 4 ; Left(Middle(TextToNum(MiddleP
  168. (TelOld; Position(TelOld;Left(@#2;1);1); Position(TelOld&"; ";"; ";1) - Position(TelOld;Left(@#2;1);1)));If(Left(@#2;1) = 6 ;2 ;4);9);2) & If(Length(Middle(TextToNum(Middle(TelOld; Position(TelOld;Left(@#2;1);1
  169.  Nu test op lookup fout
  170. E: (0&
  171. Pro 1.0F!
  172. Pro 2.0 - 2.1I
  173. Main Dictionary
  174. Oud intern. omgz.&
  175. OK: InternatiC
  176. onaal&
  177. OK: Nieuw Euro nr
  178.  Nu test op lookup fout
  179. '(Net+Abo bestaat niet o
  180.                                                               If(Middle(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                      (Middle(@#2 ;3 ;1)-Middle(@#2 ;2 ;1)+2);1) N
  181. = 0 and Left(@#2;1) < 5 ;                          "E: (0"&Left(Int(TextToNum("0,."&TelOld&1)* 10^(Length(TextToNum("0,."&TelOld&1))-2));                            Middle(@#2;3 ;1) - Middle(@#2;2 ;1) + 1)& ") 
  182.         "E: " & Abs(Length(Int(TextToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1))& If((Length(Int(TL
  183. extToNum("0,."&TelOld&1)*                                   10^(Length(TextToNum("0,."&Left(TelOld;Position(TelOld&"; "; "; "; 1))&1))-3))) - Middle(@#2 ;3 ;1)) <0 ; "d <<<< F!";  "d >>>> F!");                 
  184. Abo nr begint met een 0'
  185. OK: &
  186. 06 nr'
  187. Nieuw Euro nr gratis'
  188. Nieuw Euro nr betaald'
  189. Oud nr omgezet'
  190. Nieuw nr'
  191. Oud nr is nieuw nr'
  192.                                                                       or (TextToNum("0$"&TelOld) < 1/100) ; "OK: Internationaal";                                                           If(Left(@#1;1)=1 and (F
  193. Length(1&TextToNum(TelOld)) - Length(TextToNum("0$"&                               Middle(TelOld;Position(TelOld & "; ";"; ";1);32)&1)))=2 ;                          "OK: Nieuw Euro nr";                        
  194.